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PATO€S FOR COCO III 

4TH COmAND ON PftSE 3 SHOULD READ *S FOLLOHS: 

COItWID: aS:?M.'N0':POKE65W7,B:?3B.'YES' 

5TH CCW1AND FBOH TOP OH PAGE 3: 

Replace POKE 65495.0 vith POKE 65497.0 
Replace EXEC 49152 uith EXEC tt£B10 

LAST COfflANB OH PAffi 3 IS INCOWPATIBLE HITH COCO 3. 

t NOTE; DO *tWOTw SET THE 64K ALL RAH HOPE BEFORE USIH6 ANY COHHWDS 
LISTED UNDER TfC 'FOR 64K COHPlfTERS ONLY' SECTION. 

TOP COWVWD OH PASE 12 SHOULD READ AS FOaOWS: 

COmAND! POKE &HAD19.126:CLEAR 2W.3274e!P0KE &HAD1A.&K7F:P0KE WADIB. 
ttC4:F0RI=32748 TO 32748+iHlD:READ A$:PO«E I.VAL{'iH'+A$):NEXT: 
DATA 8E.7F.FB.BD.fi9.9C,BD.Al.Bl.ai.59.26.07.9E.19.6F.aEI.7E.AD. 
ID. 7E.AD. 33.20. 53.SS.52.45.3F.n 

2ND COHHAHD FROM TOP ON PASE 12. FIRST LM SHOULD HEAD AS: 

CLEAR 20B.327N:POKE IHAS3C. IH7F: POKE &HA53O.fiHBC:FORI=327e0 TO 32705: 

3RD. 4TH t 5TH COWIANDS FROH TOP ON PAGE 12 ARE IHCOHPATIBLE MITH III. 

LAST COHWP H PAGE 12. FIRST 2 LINES OF COWHAND SHOULD READ AS: 

CLEAR 28B,32670:POKE iHA69B.iHFA:P0KE fcHA6C7.126:P0KE ttW.C8,tH7F: 
POKE 4HA6C9.iH9E:FORI=32670 TO 32670HH15:READ Ai:P0KE 

1ST COHHAND ON PAGE 13. 1ST LIfC OF COWHAND SHOULD READ AS: 

CLfAfi 2M.32590iPOKE iH99FF.127iP0KE IH9A«B,iH4E:FORI=32590 TO 3265B: 

ROHPAK TRANSFER TO DISK (PAGE 14) 

Use OEAR 28e.l63B4:aOADf1 'FILENAtf instead of OEAR 208.16384: 
aOADn'FlLENAHE'.iHSeae. instead of Mdif«jinq Lines 140 & 15B of 
Prograi Listing 1, lodify Line 110 of Prograi Listing 2 as follt*(s; 

110 INPUT 'FILENAME' !FI«:L0ADH FIt:POKE ttfF4B.B:EXEC 3584 



PATCHES FOR COCO III (contd.) 



3RD COttWlD fROH TOP ON PME 18. 1ST lltE SHOULD «EAD *Si 

CLEAR 2ee.3»0B:POKE tHCFlC.IHAF:POKE WCFlD.WU:F0RI«325ee TO 32588: 

m COHWID FROW TOP ON PA6E 18. 1ST LII€ SHOULD READ AS! 

CLEAR 20e.325N:POKE tHCFFg.lHAE:POKE tHCFF9. UFA: FOR 1=32500 TO 32588: 

7TH COttlAND FROH TOP ON PA6E 18. 1ST 2 LItfS SHOULD READ AS: 

CLEAR 2M.324fl0:POKE IHD&25. 126: POKE fcKi)626,t26:P0KE IHD627,tiH98: 
F0RI«324M TO 32415:READ A«:POKE I.VALCSH'+A»): 

PROgPUWE ON PAGE t? 

FoUw the S3M steps except do NOT set the &4K ALL RAH NODE. 

2ND. 3BH 5TH COIfVWDS ON PA6E 23 ARE INCONPATIBLE WITH COCO III 

M» Klffi SPEB) CASSETTE OPERATION tw 



Bttore ludiM or saving proqraiK. TVPE: PO>S 65497.0. This will 
allow <KU to LOM and SAVE ProqrMS at hiqh speed. Use POI^ 65496.0 
for regular speed. 



PREFACE 



Our book, '500 POKES PEEKS 'N EXECS for 
the TRS-80 COLOR COMPUTER' tuas very uiell 
received by the CoCo Users. In a short 
span of tuJO years, this book has seen four 
reprints and has been uiidely acclaimed by 
CoCo Users- Hence, the author decided to 
continue the good work and compose this 
supplement- 

The SUPPLEMENT TO 500 POKES PEEKS 'N EXECS 
includes commands to give you even more 
power of Assembly Language through Basic- 
It includes commands 1 ike Rompak Transfer 
to Disk, PAINT with 65000 styles, Use of 
40 track drives, High Speed Cassette 
Operation and Printer Routines such as 
Text and Graphic Dumps, You will also need 
the 500 PEEKS *N EXECS to be able to 
effectively use this supplement. 

We shall be glad to receive your views on 
the book and any changes/additions to be 
made to make it even more useful- 

GOOD LUCK! ! 



VI 

HOW TO USE THE BOOK 

The SUPftflCNT TO TIC 580 POKES PEEKS 'N EXECS for the TRS-BB COLOR 
COHPUTER has been prepared in a style that can be easily foUcwed by a 
neophyte as well as a professional prograiwer. It foUous a logical 
sequence of ujor sroups based on different systems - Cassette Only t 
Cassette 'N Disk CoMandsi Printer, MK Covuters Only and Disk 
SvstcM. An exhaustive Table of Contents has been included to help you 
locate the lajor coHunds in the book. 

TYf^iNG IN nc COtnWDS 

Before typif>g in any COttlANDi please read it ensuing RESULT and 
REMARKS. This vill give you a better understanding of the COrtVMD and 
vhether or not it can be used nith your particular syste*. 

If the COttWffi is a PEEK, for exaiple: PEEK (244), precede it vith a 
PRINT coMand. For exanple, PRINT PEEK(244} and press <ENTER>. The 
coiputer itill return (or display) a value. Then read the RESULT and 
RDMIKS to understand vhat that particular value stands for. If you 
wsh to use the PEEK coMand in a Basic Prograi, you nay precede it 
«ith a variable, for example: A=PEEK(244):IF A=2 T1€N ... 

If the CONIAM) contains any DATA statements, it aust be preceded by a 
statement number. For exuple, if the command reads: F0RI=ie24 TO 
t823!READ A:POKE !,A:»EXT:DATA 42*22, you wuld type it as: IB FOR 
I=IB24 TO 1B25:READ AsPOKE I,A:DATA 42,22. Then, type RUN to acheieve 
the RESULT. If you do not precede such commands Hith a statement i, 
yoJ mill get an 70D ERR(W. If you visfi to use any of the commands nith 
DATA statements in yoF Basic Programs, make sure they are placed in 
the BE6IMIIN6 of your program. Always make a BACKUP of the programs 
that contain POKEs, PSKs and EXECs as a slight error can Hipe out 
your entire program. 

Before using any Printer Routines, such as Perforation Skip, make sure 
the appropriate printer baud rate is set. If you are using any of the 
commands listed under the 'FOR 64K COHPl/TERS (MiV section, make sure 
vou have typed in and RUN the MK ALL RAH NODE program from Page 61 of 
our 5n POKES PEEKS 'N EXECS book. The COWANDs listed in this section 
vill not mork unless the computer is in the AU RATI NODE- The 
COHHWDs for EDTASH + (R)i COCO m (R), and TELEWRITER - 64 (R) and 
the various ircade games should be used with the particular progr* 
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CASSETTE ONLY & CASSETTE 'N DISK COMMANDS 



COffWffi: POKE 25,PEEK(188}:P0KE PEEK(2S)f256,e:hCW 

RESW.T: Perforns a POEAR fl 

RERAR(S: Provides mxIhui mory for Basic Program. Does not 

allow the use of graphics. Clears any Basic Prograi in 

weaom 

COftWID: POKE 159,0 

RESULT: Disables all functions/coMiands 

REHMKS: t WARNING t Save any prograurs before using this POKE 

COttWD: CSA^ ■filenaKM024,1535iPEEK[114)i25&+PEEK(llS) 
RESULT: Saves the current text screen to cassette 
REHARKS: Use CLOADd "filenaie* to load screen froi cassette 

COmAND: CSAVEH ■filenaM',PEEKIIB6)»256,PEEK(183)«256,M539 
RESULT: Saves a graphics screen which is in leHry to cassette 
REHAflKS: Use aOADH 'filenaK* to load screen fron cassette 

COHHANO: IMT ({PEEK{223)-128)M)+1 

RESULT: Returns the voluK of the iost recent FUV stateaent 

(BWRKS: For exaRPle. returns 27 in PLAY 'V2T 

COttWfl): FOR 1 = 338 TO 345:P0KE I,255!«n 1 
RESULT: Inproves keyboard reponse in sone Basic Prograns 
REMARKS: This cDnund should be added to precede any PEEK 
between PEEK 1338) to PEEK(3451 in the Prograi 

COftWffl: POKE 359. 12 

RESULT: Allows the use of graphics screens and 'SCREEN 0,1' 

without returning to nornal text screen 
REMARKS: Not coKPatible with Disk Systei 

COmANO: POKE 359.126 

RESULT: Recovers froi POKE 359.12 
REnARKS: None 

COfHAND: POKE 383,158 

RESULT: Disables the LIST COMMAND 

REMARKS: LIST cDMiand produces garbage 



COmWD: POKE 363,126 

RESULT: Restores LIST coiwMnd after POKE 383,158 

REMARKS! None 

COftWfi)! POKE 383.158 

RESULT: Disables the DIR + LIST coHunds in Disk 

REMRKS: OIR coHiand produces garbage 

COfMM}! POKE 383, 12& 

RESULT: Restores the DIR * LIST coMunds in Disk 

HENARKS: None 

COmWt EXEC 41393 

RESULT: Flashes cursor and luits for a keystroke 

RENMKS: Useful in 'PRESS ANY KEY TO CONTINUE' applications 

COmAND: POKE 465,B!EXEC IHA64C:X=1024:A=INT(X/256): >t- 

(A«256}:P0KE &HlO,A:P0KE &H1E8,B:EXEC W6K 
RESULT! Loads a tl prograa froi cassette at MY address 
ReMrk! Set X equal to the desired loading address in the 
above coMund 

COmWO! K=-l:OPEN 'IMKt'filenaM'iEXEC 44156 

RESULT: Loads a Basic Prograi saved in ASCII, into leiory 

REHARKS: Uorks with cassette files. Use K=l to load disk files 

CCmANDi K=-l:J=255 :F0RI=243 T0253:READA«:P0KE I,VAL( 

■|H'+AS}:lCXT:OPENMMK,'filBnaK':POKE ni,J:EXEC 
243 :aOSEiK: DATA BD.A1,76,BD,A3,BA,8D,70,27,F6,39 

RESULT: Displays the contents of the cassette data file 
'filenaM'i on the screen 

REMARKS: SaK as the DUMP coNund found in other ccaputers. 
For di^ files, Mke K=l and J=l 

COmAND: K=-t!J=255! F0RI=243 T0253:fiEADA$:P0KE I,VAL( 

'tH'+A«)!rCXT:OPEN*I'.tK,'filenaw':P0KE U1,J!EXEC 
243:CL0SEIKtDATA BD,A1,76,BD,A2,BF,BD,7B,27,F6,39 

RESULT: Displays the contents of the cassette data file 
'filenaie'i on tk printer 

ISnARKS: SaK as the DUnP coMand found in other cow>uters. 
For disk files, nake K=l and J=l 



COflWffl! EXEC «539: A«=CHW( PEEK (135)) 
RESULT! Uiits for a keystroke and returns the key in M 
REKARKS: Used as a substitute for the follMing: 
IB At=IM(EY«!lF A*=" THEN IB 

COTHAND: exec 46461!? (f>EEK(35)t256^PEEK(36))-(PEEK(33)«256f 

('EEK(34)) 
RESULT! Returns the awunt of free string space 
REHARKS! The aaount of free string space is initially set 

by the 'CLEAR xx' cowund 

COmAND: EXEC &HACEF: CLEAR 

RESJLT: Restores a Basic FVogra* lost by a RENUH error 

ISHARKS: RENUn error occurs when the computer tries to 

RENURber a SOTO or GOSUB statewnt folloved by a 

line • greater than 63999 

COnnWD: aS:?M/N0':P0KE65495,B:PRIKTaB,-YES- 

RESULT: Tests if your conputer accepts the High Speed Poke 

remarks: Prints 'YES' if it accepts the Poke. 'NO* if not 

COrtlAND! <Turn off computer. Put a scotch tape on the leftwst 
pin of the mpak. Insert fionpak in slot. Turn on 
covuter.The 'EXTENDED BASIC should appear. Type) 
POKE 65495,0!Pres5 <Enter>. Type! EXEC 49152 
iSSULT: Increases the speed of your roipaks 
REI1ARKS: Som roipaks light not uork properly under the 
High Speed node 

COmWD: X=PEEK{39)t256-fPEEK(4fl)-3fl:CLEAR 2Ba,X:X=PE£K{39)l2U 
+PEEK(4B)+l:F0fi 1=X TO X+23:REA0 A$!POK£ I,VAL('W+ 
At)!NEXT:A=IMT(X/256)!B=X-(At256):P0KE 114,A:P0KE 115, 
B:DATA 12,BD,82,9C,0F,E3,eF,E4,B6,Ff,03,BA,ei,B7,FF, 
03,BF,6F,BD,AD,21,7E,AD,9E 
RESULT: Restarts your Basic Prograi Mhen Reset is pressed 
remarks: Disk Version of this is in 'DISK SYSTEMS' section 



COWVWD: X=PEEK(39)i256+PEEK(4fl)-5fl:CLEAfi 2W,X!K=PEEK{39)t25&+ 
PEEK(M)ti:FOR I=X TO X+34:READ A»:POKEI,VALCW+A»): 
(CXT:A=INT()(/25A)iB=X-(A»256):P0KEX+5,PEEK(36a):P0KE 

X+6,PEEK(361):P0KE 3ifl,A!P0KE 361,fl:MTA BD,6F,27,B3, 
7E,B8,0B,34,56,0D,76,27,i2,9E,88,BC,B5,EB,25,aB,BD,Al, 

Bl,BD,A9,28,8E,W,BB,'?F,B8,35,56,2B.El:P0KEfiH76,l 

RESULT! Allows single screen LIST / DIR 
fSIARKS: Divide the ccipand into tw statewits at DATA. Press 
any key to wve frm one screen to the next 

COmWD: POKE kH7&,e 

RESULT! Disables the single screen LIST / DIR routine 

REHAiKS! Use POKE IH76|1 to reenter routine 

COtflMD: RE=35W:B=RE/512: A=l!FORI= 6547B TO fi5A98 STEP 2:P0KE 

HtB AND A)=A)iB:A^t2!NEXT 
RESULT: Relocates the video display area to address defined 

by variable RE in the comand 
REMIKS: Change HE to the desired address. Nake sure RE is 

evenly divisible by 512 

COmMffi: X=PEEK(39)»256+PEEK[«)-28!CLEAR 2M,X:X=PEEK(39)*256 
+PEEK(48)+1!F0RI=X TO Xtl^sREAO Ai:POKE 1, 
VAL{'*H'+A«): NEXTHEXEC XiDATA 8E,W,8B,A6,BA,88,«, 
A7,Be,8C,a5,FF,23,rS,39 

RESULT: Reverses the text screen 

REHMB<S: None 

COItVMD: DIH HE[2BB):A=CPEEK(183)*25A+PEEK(184))-(PEEK(18i)t 
256+PEEK(lfl7))!A=A/32!X=i28+ll28»ABS(PEEK(lB2)=A))! 
FO«I=fl TO A STEP 21!PliT (e,I)-(X-l,I+28),RE,N0T:NEXT 
RESULT! Reverses the current graphics screen 
REKARKS: Uorks with all PtWDEs! Takes approx. 5 seconds 

COmAND! POKE fcHIU,2!X=PEEK(39)»25fr+PEEK(«)-38:CLEAR 2Be,X! 
X=PEEK(39)*25i*PEEKt4fl)+l:F0RI=X TO X+231READ A*:POKE 
l,VALl'WtAI):NEXT: POKE X +5, PEEK (368): POKE X+6,PEEK( 
361):A=INT(X/256);B=X-(At256):P0KE 36e,A:P0KE 361, B: 
DATA 0D,6F,27,a3,7E,Be,0e,3*,U,W.,Bl,H. 27,Bt,5F, 
1F,B1. K),A7,D3,35,16,2e,EC 
RESULT: Slews donti character printing rate 
REHARKS: Very useful to read listings / disk directories. 
Divide coMand into tin stateiients at DATA 



COttUND: POKE tHlU.x 

RESllT: Sets character printing rate 

REHAIKS: Use in conjunction with the previous routine, x is 

any I tjetveen 1 to 58. i=slai, SB = very sIoh. Hake 

)t=% to disable si on print 

COWMND: X=PEEKUB8)«256:F0R 1=X TO X+94:READ At:POKE U^tL 

(■W+M):»EXT!DATA»',78,BD,AS.CS,BD,A6.4B,60,AO,19i 
BD,A7,7C,9E,19,9F,7E,DC,7E,4C,BD,AC,37,BD,A7,BB,2fa,eD, 

96,7C,27,K,96,7C,27,a5,2A,E9,7E,A4,El,BD,A7,E9,9E,7E, 

9F,76,9E,19,9C,76,24,iC,EC,B4,27,lE,33,«,ll,93,76,24, 

U,A6i CI, 27,07.11, 93,76,24,n,2B,F5.F.M,«,84.2fl,Ee. 

6F,aB,tf,Bi,9F,lB,BD,AD,21,7E,AC,73 

RESULT: Restcpres part of cassette based Basic Progra«s that 
have been lost by ?I0 ERRORS 

REHARKS: RUN this prograi. Cassette users: CSA^ 'TRESTOREN 
1336, 153fr^, 1536. Disk Users: 5AVEH ■TRE5T0RE',3584, 
35BU9St35B4. To restore a Basic Progra*, sitply 
aOAW or LOAM 'TRESTORE'. Press PLAY on cassette 
player, type EXEC and press <ENTER> 

HIW SPEED CASSETTE OPERATION 

The folloHiny cowands vill allow you SAVE / LOAD Basic and HL 
prograas at high-speed. For use vith Radio Shack Coiputer Cassette 
Reoirders only. 

(1) To save a prograa at high speed, type POI^ 65495,0 and press 
<ENTER>. Then use the nomal CSAVE or CSAVEH coaund to save prograi 
to cassette. 

(2) To load: 

COnVMl: POKE 65495,0:POKE U3,H:P0KE 144,24;P0KE 145,6: 
RESULT: Sets up the cosputer for high speed loading 
REMRKS: FoIIom this ciMand by the aOAD or aOADn coMand to 
load your progras froa cassette at high speed 

COmWD: POKE 65494,0:POKE 143,PEEK(&HA10D):POKE 144,24:P0KE 

145, PEEK4tfttlflF) 
RESULTi Restores coiputer for regular speed loading 
IQMKS: fkme 



PRINTER 

COMMA: BAUD = mx: P=INT(S56M/BAUD)-(16/3)t.5)+(2* (BAUD= 
ltl>)-(BAUI>=96«):Pl=INT(P/25i):P0KE l«,Pl! POKE 15B, 
P-(P1*256) 
■silt: Sets baud rate lia,3ee.6ee,12Wi24ae,4a0B or 96W 
flDtMKSt Substitute xxxx in the coMMnd tiith desired baud rate 

COmMD: XxpEEK(39)»256+PEEK[«)-«:aEAR 2M,X:X=PEEK(39)t25i 
+PEEKI«)+l!FORI=X TO X+34:REA0 At:POKE I,VALCiH' + 
Al)i tCnsPOKE )(+lI,PEEK(36e):P0KE Ktl2,PEEK(36I): 
A"1NT(X/256):I=X-M*256):P0KE 36fl,A:P0KE 361,B!DATA 
W,E,%,tf,Bl,FE,27,B5,35,K,7E,M,M,35,B2,32,62, 
3*,B2,%, 77,97,96, 35,B2,7F,FF,D6,BD,A2,BF,7F,FF,D7,3<? 

RESULT: AUms you to operate your printer Nith the high 

speed poke 
RENUKS: Divide the oMand into two statCKnts at DATA. 

After typinq in this conund, type in the follcMing 
mds fen" the appropriate baud rate 



COmWD: POKE 149,l:P0KE &H77,242 

RESULT: Sets up printer for Baud Rate IIB for use Mith the 

High Speed Poke 
RBWKS: Use after previous towand 

CQItMNDi PO(C 149,l:P0KE U<77,180 

RESULT: Sets up printer for Baud Rate 3N for use Hith the 

High Speed Poke 
REMARKS! See REnARKS for previous coMand 

COmWC: POKE 149,B:P0KE tH77,87 

RESULT! Sets up printer for Baud Rate 600 for use Mith the 

High Speed Poke 

REMARKS: See RENARKS for previous coMand 

OOmWD: POt£ U9,BiP0KE tH77,M 

RESULT: Sets up printer for Baud Rate 1280 for use with the 

High Speed Poke 
REMARKS: See REMARKS for previous coMund 

COmM]: POKE 1A9,B!P0KE &H77,18 

RBULT; Sets UP printer for Baud Rate 2W0 for use «itli the 

High Speed Poke 
RDIMKSi See fEMAfSfS for previous ccNMand 



COmAND: POKE U9,0:POKE bH77,& 

RESULT: Sets up printer for Baud Rate ASM for use wth the 

Hl3h Speed Poke 
REMARKS: See f£MARKS for previous coMand 

COHMAND: POKE UV.BiPOKE 4H77,1 

RESIT: Sets up printer for Baud Rate 960B for use with the 

High Speed Poke 
RDIARKS: See REMARKS for previous comund 

COmAND: POKE 360,ftH82:POKE 3&l,ftH73 

RESULT: Disables the routine Mhich allows printer operation 

under the High Speed Poke 
REMARKS: For ECB Only. For Disk Basic l.B, use POKE 360,&HCB: 

POKE 361, Um; Disk Basic l.t - POKE 36e,WCC:P0KE 

361.tHlC 

CCmMD: X=PE£K(39)«256+PEEK(U)~3e:aEAR 280,X:X=PEEK(3?)i25&+ 
PEEK(«)+lrFORI=K TO )(+2l:READ A*!P0KE I,VALCWtA«): 
NEXT:POKE XtU,P£EK(36e}:P0KE Ui2,PEEK(36n:A=lMT( 
X/25i):B=l(-iAt25il:P0KE 36e,A:P0KE 3iI,B:0ATA 34,B2, 
96,6F,81,FE,27,85,35,B2,7E,W,B0,B6,FF,22,«,25,FA,35, 
12*39 

RESULT: Corrects the Bug in Color Basic 1.1 which causes the 
printer to aiss the first character Kcasionally 

REMARKS: Divide the coMand into tw stateMnts at DATA. This 
routine not necessary for Color Basic 1.2 

COHHANO: X=PEEK(39)t256+PEEK(«)-3B:aEAR 2BB,X:X=PEEK(39)t256+ 
PEEK(«)tl:FORI=X TO X+25:HEAD A$:POKE I,VALC4H'+A«): 
fEXT:POKE X+11,PEEK(36B):P0KE X+I2,PEEK(361):A=IHT( 
X/256):B=X-(A«256}:P0KE 36a,A:P0KE 361,B:DATA 34,02. 
96, 6F,81,FE,27,ffi,35,82,7E,CC,lC, 96, 9C,91,F3, 25,05,86, 
0D.BD.A2,BF, 35,82 
RESULT: Allows you to define the right sargin for your printer 
REMARKS: Divide the coMand into tw statenents at DATA. This 
routine is helpful for setting the right urgin so 
that the printer doesn't print off the PAPER • See 
next coMand 

command: poke »f3,x 

INSULT: Sets the right urgin for the previous comnd 

REMARKS: x is the right margin between 10 and 132 
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COmWD: POKE 34B,iH82:P0KE 36U4H73 

RESULT: Disables the Riqht Hargin Printer Routine 

HEHARKSi For ECB Onls, For Disk Basic 1.0 - POKE 368, liHCl: POKE 

2bUtiM. For Disk Basic 1.1 - POKE 360, tHCC: POKE 361, 

IHIC 

COttMND: X=PEEK(39)«256+PEEK(«)-6e:a£Afl 200,)(:X=PEEK(39)»256 
+PEEK(«)tl:FOfi 1=X TO I+57:READ AtiPOKE 1,VAL('IH'+ 
A»)tNEn:POKE X+U,PEEK(36fl):P0KE UI2,PEEK(361)!A=INT 
(X/256)JB=X-(Af256):P0KE 36I,A:P0KE 361,B:CATA 34,86, 
96,6F,81iFE,27,e5,35,e6,7E,iniN,A6,E4,BD,A2,BF,8],8D, 
27,flB,D6,9C,Cl,M,25,19,86,aD,BD,A2,BF,eC,F4,D6,F4,Cl, 
3C,25,eC,C6,86,86,eD,BD,A2,BF,5A,26,FA,V,F4,35,06,32, 

62,39: POKE 2M,B 
ICSULT: Pertoration Skip Routine 
REIMRKS: Divide the coMund into tw stateMnts at DATA. This 

routine allows aour printer to skip over perforations 

and autowticalla skip to the next sheet ahon it 

rtaches the bottot of a sheet 

COnWO: PEEK(244) 

RESULT: Fteturns the row » the printer is printing on 

IB1MKS! To be used in conjunction vith the previous coNund 

COmAND: POKE 360,ue2:POKE 361,IH73 

flESULT: Disables the Perforation Skip Routine 

HDMKS: For ECB Onla. For Disk Basic 1.8 - POKE 368,4HCB:P0KE 

361,HttA. For Disk Basic 1.1 - POKE 360,WCC:POKE 361, 

AHIC 

COItWDi 18 FORI=1824 TO 1535 

28 A=PEEK(I):AsA AM) 127:IF A>95 TICN A=A-64 

38 PRINT l-2,CHR«(A); 

M IF atl)/32=INT((I+l)/32) T>€N PRINT 1-2 

58 NEXT 
RESULT: Text Screen ft*P to Printer 
NENUKS: RUN this prograi to Aap the current text screen 



CmVM)! » PNODE 4:SCREEN 1,0:POKE 111,254 

2B K=PEEK(ni)!K=(2»{K=25A))+(K=255): DIM A(192) 

38 ](=ISPRINT IK.CHRtaB) 

« FOR ¥=191 T0BSTEP-l:S=12B 

M S=S+(3fPP0IffT(X,Y)):S=S+lI2»PP0IIiT(X+l,Y)): 

S=S+(A8tPP0MiX+2,Y))JS=S+[W«PP0INT(X+3,y)):A(Y) 

=PPOIN7(X+3,Y) 
60 PRINT IK,CHW(S){CHW(S);:lCXT:PRINTfK:IF X>=252 

T>EN 111 
7B FOR Y=191 TO B STEP -l:S=12S 
BiS=S+(A(Y)): S=S+(6*PP0IMT(X+4,Y))! S=S+(24*PP0INT 

(X+5, Y)): S=S+(96«PP0INT[X+6,Y)) 
99 PRIM *(,CHR«(S)iCHW{S);:ftXT:PRINT IKiX=X+7 
lie IF X<2S6 THEN 4fl 
lie PRINT«-2,CHR«(3e) 
RESULT! Duvs the PH(H)E 4 graphics BCreen to a DMP printer 
REHARKS: Before RUNning this prograiiuke sure you have the 
graphics screen in wKry. Since this duip is in 
BasiCi it takes approx. 15 linutes to print 
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FOR 64K COMPUTERS ONLY 

Note: All the OMNnds listed under this section require the 
64K All RAH prograi frn Page 61 of our '5M POKES PEEKS 'N 
EXECS' 

COHIAND: X=PEEKt3?)»256+PEEK(«)-10!CLEAR 2M,)(:X=PEEK(39)»256 
+PEEK(A8)+l!A=INT(X/256):B=X-(At25A):P0KE n*,A:POKE 
U5,B:F0R M to X+6:READ ACPOKE IiVAL('tH'4At):NEXT 
DATA 12,7F,FF,DF,7E,8B,Ci 
RESU.T: Sets RESET protectim for the ALL RWI NODE 
REmflKS: CoCo does not enter the RAH/ROTf wde Hhen Reset. Not 
for disk systens 

COmAND: X=PEEK(39)(25&tPEEK14e)-ie:CLEAR 20B,X:X=PEEK(39)tt256 
+PEEKI«)+l:A=INT(K/2561!|=^(At2561 SPOKE 11*,A:P0KE 
il5,B:F0R I=X TO X+6:READ A»iPOKE l,VALCfcH'+A*):NEXT 
DATA i2,7F,F,DF,7E,C8,M 
result: Sets RESET protection for the ALL RAH NODE 
REMARKS: CoCo does not enter the RA«/R0f1 Kde Mhen Reset. For 
Disk Basic 1.0 only 

CMMSii l(=PEEK(39)»256+PEEK(4e)-ll:CLEAfi 2eB,ll:X=PEEK(39)»256 
+PEEK(4B)n:A=INT(X/25A)!B=X-(A»256):P0KE 1U,A:P0K£ 
U5,B;F0R I=X to X+6:READ A$:P0KE I,VAL('WtA»):«XT 
DATA 12,7F,FF,DF,7E,CB,E7 
result: Sets RESET protection for the ALL RAH NODE 
remarks: CoCo does not enter the RAN/RON node when Reset. Only 
for Disk Basic 1.1 

COMNAND: POKE MTDE.fl 

RESULT: Returns to the norial RAN/ROH wde 

RENARKS: Useful for returning to norul after MK ALL RAH NODE 

COHNAND: POKE UfFDF.B 

RESULT: Reenters the MK ALL RAN MODE after POKE &HFFDE,B 

REMARKS: None 

COmWD: POKE WA19B,PEEK(&HA262) 
RESULT: Creates an invisible cursor 
REMARKS: None 
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COmAND: POKE 41884,S:P0K£ 418e5,Tit32 
RESULT: Sets up a text Hlndni 

RENMKS: Scroll protects top half of the screen and the *n' t 
of lines fro* the bottM half, n can be any I fl to 6 

COmWD: FOR I =ftHAC4C TO fcHAC50: POKE I,18:NEXT 
RESW.T: Disables HOTOR OFF / AUDIO OFF upon error 
REHARKS: Can be useful Mhm listening to Hsic through the 
TV speaker (set through nOTOR ON:AUDIO ON) 

COftlAND! POKE IHBB16,4 

RESULT: Hakes Packed Basic Lines visible 

REHARKS! Useful for RainbOM (fi) One - Liners 

COmAND: POKE tHADF5.12 

RESULT: AUoHS you to pause listings/prograii through CLEAR 

REHARKS: Eliiinates pause through the cumbersDiie SHIFT - 3 

COHWID: poke 4H9537,x: PaS 1 

RESULT: Creates Mlti-colored backgrounds for various PHODEs 

ISHARKS: Use PaS 2 instead of PaS 1 for PWDEs B & 1. Try 

values of X (between and 2SS) for different patterns 

COttVM): POKE &K96eE.18:P0KE &H96eF,lB:P0KE tH%'?e,18:P0KE 

ftH<MiA3,18:P0KE tH96A4,i8 
lESULTi Allows PCLEAR 
REHARKS! None 

COtnMUD: POKE iH9692, 15 

result: Allows you to PCLEAR froa 1 to H 

REHARKS: Nnw 

COtHAND: POKE 49152,0!POKE iH134,fl:P0KE iH139,B: EXEC iHBfl02 

RESULT! Creates an EXTENDED BASIC only systen. 

REHARKS: Useful for loading Kret programs froa cassette that 

work in a non-disk environient, without unplugging the 
disk controller. Erases any Basic Prograi in neKiry 

COHHAND: poke 49152,6B:EXEC &H8fle2 

RESULT: Returns to nornial after the previous cowiand 

REHARKS: Erases any Basic Prograi in Knory 
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COrtlAND: POKE WAD 19, 126: POKE (HADlA,U€e:POKE fcHADlB,B:FOR 
mtCBBB TO U£{)1D:READ ACPOKE I,VALt'ftH'+A«):lE]{T: 
DATA 8E,EB,17,BD,B9,9C,BD,Al,B1.81.5<?,2{>,e7,9E,19,AF, 
Se,7E,AD,lD,7E,AD.33.20.33.55,52,A5,3F,e0 

RESULT: Enhances the FO ctwund 

REHARK5! lEU coMiand pronpts Mith SURE? before erasing the 

Prograi. Prevents accidental erasures 



C<MMND: poke &HA53C,&HEl:P0KE tHA53D,B!F0RI=VElN TO »C1S: 
READ A$:POKE I,VALCtHHA$):IC](T:DATABD|A7,E9,7E,A5,45 
fEBULT: Cotbines the dOAM and EXEC coMunds 
flEHARKSi CLOADR loads and EXECutes a tl pro9raB frcM cassette 

COttlAND: FORI=UC130 TO UC17A:IEAD A$:POKE IiWlCIH'^i): 

next: data 9E,BA,BF,El,U,C£,E&iBe,A6,e0,A7,CI)9C,B7t 
23,F8,9E,B7,BF,El,6B,39,Be,N,K,ee,BE,E6,80,FE,El,66, 

A6)80,A7,Ce,n,B3,Eli68)23,F6,39 
RESULT: AIIohs you to hide the current graphics screen 

and recall it later 
REMARKS: Saie as the OOPS conand found in other computers. 

See next tw coMunds for nore info 

COmAM): EXEC UC150 

RESULT: Hides the current graphics screen 

REHARKS: To be used in ccmi),mction vith the previous coeund 

COnwai: EXEC UCIM 

RESULT: Restores the hidden graphics screen 
REMARKS: To be used in conjunction Mith the previous tw 
coHunds 

CCmAND: POKE fiKA67S,ftHFA:P0KE fiHA6C7.126:P0KE &HA6C8,li»£2: 

POKE iHA6C9,BB:F0Rl=&HE2BB TO ttC20B+4H15:READ A»:POKE 
I,VAL('iH'+A$):rCXT:DATA27,ll,Bi,W,M,81,46,27,86, 

eB,4ei81)46,26,01,39,7E,Ab,96t7E,A6,B6 
RESULT: Enhances the CLOW / CLOADH coMund 
REMARKS: aOAD / CLOADH 'filenaM' will continue to look for 

•filenaie' uhile ignoring ?I0 ERRORs in any other 

file in the process 
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COtttWD: POKE (H99Ff,IHE2!P0KE tH9Ae0,fl:FOfi I=ttC2Ei TO UC244: 
READ A»:POKE I,VALCIH'+A«):ICXT:MTA 34,76,lF,lfl,90, 
BA,DD,F5,8i,28,97,FD,80,lF,lF,B9,4f,DD,R,86,a2,97,FD, 
8D,14,DC,F7,5D,26,B6:DATA %,FE,97,B5,2B,W,96,FF,97, 
B5,35,76,7E,93,77,B6,a8,97,FC,DC,F5,58,49,9l,FD,25,a3, 
9l,FD,5C,8A,FC,2i,F3,lE,89,DD,F7,39 
RESULT: Allofs 65eW PAINT styles instead of the usual B 
REKARKS: Divide ttw coMand into tw stateaents at the second 
MTA stiteaent. See next tw cOHands 

COmWDi POKE 25A,a:P0KE 255,b:PAINT (}(,u},B,c 

RESULT! PAIKTS starting at coordinate x,a «ith the pattern 

defined by 'a' and >b' till it hits border 'c' 
IG1ARKS: To be used in conjunction Mith the previous ccMand. 

Try different values of 'a' and 'b' for diffvent 

patterns 

COmAND: POKE &H?9FF,ftH93:P0KE IH9AN,tH77 
RESULT: Restores norul PAINT 
reaarks: None 



The next eight POKEs are Problei Pokes for varioos RONPAKs. They are 
to be used in conjunction with the ROTtPAK TRANSFB prograi froi Pay 
65 of our 5n POKES PEEKS 'N EXECS. Type in the appropriate POKEs in 
statement 145 of Prograa Listing 1. Note: The naws of these Roapaks 
are reqistered tradeaarks of the Tandy Corporation. 

COHHAND! X=2B895!P0KE X,H2!P0KE X+I,I59:P0KE X+2,25A:P0KE 

X+3,m!P0*(E X+4, PEEK (WfflA): POKE X+5,96:P0KE X+i,57 
RESari Patches the SPECTACULATOfi (R) Roapak 
REIMRKS: Hone 

COmAND: POKE tM87,62:P0KE 1M88,128 
RESULT: Patches the HICRO PAINTER (R) Roapak 
REMARKS: None 

COmM): POKE 194ASPEEK(tHBA)f57 
RESU.T: Patches the REAaOIDS IR) Roapak 
REmRKS: None 



lA 

CONNAND: A=PEEK(PEEK(lU)f256+fEEK(llS)):f>0KE nAMiAiPOKE 

17445,* 
RESULT: Patches the CMYON aiKBER [R] Rtapik 
RETMRKS: Mone 

COmMD: A=(>EEK(PEEK(114)t256+f>EEK(115)):P0KE ITSSLAiPOKE 

17832,A 
RESULT: Patches the NICROIES (ft) Rnpak 
RQMKS: None 

COftUND: A=PEEK(PEEK(n4}«256^PEEKai5)):P0)C 20772,A:POtC 

28773iA 
RESULT: Patches the SLAV TIC ICRIES (R) Rwak 
REMARKS: None 

COtflMO: A=PEEK(PEEK(114)ta&tf>EEK(113)):Y=2214i;F0R I=Y TO 

Y+3:P0K£ MfliffXT 
RESULT: Patches the CGASU6 (R) Rapak 
REHARKS: None 

COtfWd): A=PEEK(PEEK(114)i2S6+PEEK(115)}:B>lM2l:P0KEBtA:POKE 
B+1,A:P0KE B+47,AtP0rc B+48,A:P0KEB+49,A;B=22646!P0KE 
£,A:POKEI+t,A:POKE B+29,A:P(IKE S+3e,A:B>23778:P0KEB,A: 
POKE B+1,A!B=17565:P0KE B,A!POH B+1,A:P0(I B+1424,A: 
POKE B+1425iA:P0KE B+15fle,A:P0KE B+15I1|A 

result: Patches the DOUNJKD <RI Rtapak 

REHARKS: None 

R0f1PM( TRANSFER TO DISK 

This procedure is to be used «th the ROTIPAK TRANSFER progru 
OR Page ^ of 5n POKES PEEKS 'K EXECS. 

First, transfer the ROMPW to cassette as described tm Page 64. Then, 
turn off cowuter, plu? in disk amtroller, turn on cowuter, rewind 
cassette and type: CLEAR 2M, 16384 :aOADt1 'FlLENAfCiHBBW: Khen the 
prograe loads, insert disk in Drive and type: 
SAVEM'FlL£rWCM6384,32767,0. Then uke the foIloKing changes to the 
PW6RAH LISTIN6 1 and save the eoditied PROSRtfl LISTING I to disk: 

141 INPUT ■FIL£NMC';FI«:LOADri Fit 

15B POKE 243,254:P0KE 244t255:P0KE WT«,I 



COMHAW: PCW 52152,PEEK(3337i) 
RESULT: Corrects the buq in the COPY COmWD 
REHARKS: For Disk Basic 1.1. Nov the COPY function does 
not lode UP iihen it encounters an error 

COttUMD: POKE 5 1942, PEEK [33376) 

RESU.T: Corrects the bug in the COPY COmAND 

REriMKSi For Disk Basic 1.1. See RENARI^ for previous ctMand 

COftWA: POKE tHD66F,x 

IESU.T: Detersines ho* lany tiies the coiputer will try to 

re«d the disk before it issues an error 
REnMKS: For Disk Basic 1.9. x is t of tries between 2 to 5 

aWMND: POtC M)762,)C 

RESULT: Dctemines (km sany tiies the cow>uter dill try to 

read the disk before it issues an error 
REHMKS: For Disk Basic 1.1. x is I of tries betwen 2 to 5 

COffWO: POKE M)6CD,l!P0t£ tHD723,23 
RESULT! Sets up disk drive for 3B es step rate 
lEfMV^: For Di^ Basic 1.1. Soie ttrives, especially Radio 
Shack drives, eight not itcrk vith loiter step rates 

COmMO: POtC M>6a),B:P0KE MD723,22 

RESULT: Sets up disk drive for 2B es st^ rate 

REMRKSi See REMRKS for previous OMand 

COmM): POKE M)6CD,l:P0KE WD723,21 

RESULT! Sets up disk drive for 12 es step rate 

REHMKSi See REHARKS for previous coaeand 

COtWM): POIC MI&a),B:POKE IHD723,2I 
RESULT: Sets up disk drive for 6 is step rate 
HENMIffi: See REMMffi for previous caeeand 

COmW): POIC M>7C8,l:P0KE tHDB16,23 
fESULT: Sets up disk drive for 31 es step rate 
RBMRKS: For Disk Basic 1.1. Som drives, especially Radio 
Shack (k-ivest eight not Hork aith lower step rates 
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OOmWt POffi MD7CI,llf>0tC IHI]eib,22 

RESULT! Stti IV diik (k-ivt for 20 k step rate 

fDMKSi S« lEHMKS for prwious ccwand 

ONMBi NtE M)7CI,|tP0KE IHDB16,21 

lESUlTi Stts up difik drlvt for 12 m step rate 

REHMKSi Sn IEMRKS for previous uMMRd 

COmWDi POC M)7CI,liPCIC VI)eUt2l 
lESULTi Stti UP disli drive for & as step rate 
fEHMKSi Sii REHMIKS for previous coHund 

COmmi POtC 2U.tHCC:P0KE 2M,imi!P0KE 245,IW2:P0KE 2U, 

WDtPOIC 247,IH)7JTOKE 248, WAC! POKE 2«,57:EXEC 2« 
ICSU.Tt AlloM use of double sided disk drives 
(D1MK51 For Disk Basic 1.1. Drive 2 becoKs the other side of 
Drive liDrive 3 the other side of Drive 1 

CDMiWt POtC 243,tHCCiPaE 2U.tmi:P0KE 245,tm2:P0t<E 2U, 

ltrD:POKE 247,M»1P0KE 2U,IH9F:P0KE 249,57:EXEC 243 
RESULT! AUoM use of double sided disk drives 
NEIMKSi For Disk Basic 1.1. Drive 2 becoMS the other side of 
Drive ItDrive 3 the other side of Drive 1 

The Mxt 16 coHands are for use of « track disk drive*. The first 8 
PO^ are for Disk Basic 1.1 and the next are for Disk Basic 1.1. 
ThiH coMMnds allov you an extra 22K of disk stora9e space on your 40 
trick drive. Honeveri please note that a Mxiiui of three 48 track 
drives can be used eith the CoCo 

COmM): PO(C 50952.78 

RESULT! Patches the Kia coiMnd for 40 track *ivps 

PCHMKSt For Disk Basic 1.0 

COmWDi POKE 5B986,84!P0KE 51063,78 
RESllT: Patches the FAT for 40 track drives 
REIWKS! For Disk Basic 1.0 

COmM): POKE 51104, 7B:P0KE 51135,7e!P0KE 52300,78 
BESULT: Patches the ttT for 40 track drives 
lEHARKS: Fw Disk Basic 1.0 
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COmW: POKE 52677,78 

RESULT! Patches the FREE coMand tor AB track drives 

leWKS: For Disk Basic l.B 

COmWD: POKE S3M,48 

result: Patches the MCKUP coHand for M track drives 

REHARK5: For Disk lasic l.B 

COItlMD! POKE 54111i78 

RESULT: Patches the COPY coMtand for M track drives 

REMRKS: For Disk Basic 1.0 

COttWd): POKE 54342,39 

RESULT: Patches the DSKIt/DSKM coMand tor 4fl track drives 

REIWIKS: For Disk Basic l.fl 

COnWfl): POKE 54M2,«:P0KE 54677,48 

RESU.T: Patches the DSKINI coNund for 41 track drives 

REIWfKS: For Disk Basic 1.0 

COrtUND: POKE 50997,78 

RESULT: Patches the KILL coMand for 40 track drives 

RENARKS! For Disk Basic 1,1 

COttWffi! POKE 51834,84:P0KE 51131,78 

RESULT! Patches the FAT for 40 track drives 

REMARKS: For Disk Basic 1.1 

COmAND! POKE 511B3,7fl:P0KE 51152,78:P0KE 5251B,7B 

RESULT! Patches the 6AT for 40 track drives 

remarks: For Disk Basic 1.1 

COWWffi: POKE 52917,78 

RESULT: Patches the FREE comiand for 40 track drives 

remarks: For Disl; Basic l.t 

COMHANDi POKE 53917,40 

RESULT: Patches the BACKUP cownand for 40 track drives 

REMARKS: For Disk Basic 1.1 

COnWfl): POKE 54349,78 

RESULT: Patches the COPY coMand for 48 track drives 

REMARKS! For Disk Basic 1.1 
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COttVM): POKE 54580,39 

RESULT: Patches the DSKII/DSKO$ coMund for 19 track &ivK 

REHARKS: For Disk Basic 1.1 

COtlHAND: POKE 5487?,48:P0KE 54914,W 

RESULT: Patches the D5KINI coMand for 41 track drives 

remarks: For Disk Basic 1.1 

COmVO: POKE kHCFlC,19:P0KEU4CFlD,UC2!F0R!=UC3ae TO ttE3K: 
READA$:POKE I,VN.CiH'+A»):«)(T:DATA 7F,FF,M,BD,M, 
2D,7E,A5,45 

flESULT: Coibines the LOADH and EXEC coMHnds 

eeurks: LOAOH loads and EXECs a FL progras. For Disk Basic 1.1 

COrtlAND: POKE &HCFFB,&H13:P0KE &HCFF9,6:F0R I=V€3M TO UC3Be: 
READAJtPOKE 1,VALCW+AI|!NEXT!DATA 7F,F,W,B0,A4, 
2D,7E,A5,45 

RESULT: Coabines the LOADH and EXEC coHunds 

REnARKS: LOADN loads and EXECs a HL progran. For Disk Basic 1.1 

COnVM): F0flI=&HD262 TO &HD2U:P0KE l,18:NEn;P0KE IHD2bB,tH4F 
RESULT! Uses default drive » uhen BACKUP is not folloMed by a 
drive I 

REWRKST For Disk Basic 1.1 

COHIAND: F0RI=W)175 TO W)178:P0KE MB:l€XTrP0KE WD17E,fcH62 
RESULT: Uses default drive « Mhen BACKUP is not folloued by a 

drive I 
REHARKS: For Disk Basic 1.0 

CmVKi: POKE fcHD625,12f):P0KE &HU>2&,UC3:P0KE &HD627.Ufie: 

F0RI=ftHE358 TO liHE35F:READ AS:POKE I,VAL('tHVA«}: 

ICXT:DATA AF,D^,EC,BD,BD,CC,BD,B9,58,ia,aE,FFi4B,7E, 
DA, 29 

result: DSKINI displays the track it is currently initializing 

REHARKS: For Disk Basic 1.1 

COWAND: poke &HD538,!26:P0KE &HD539,6«3:P0KE &KD53A,U6fl! 
F0fil=i«35« TO iHE35F:HEAD A»:P0KE I,VAL('tH'+A$): 
NEXT:DATA4F,M,EC,BD,BD,CC,BO,B9,58,10,flE,F,AB,7E, 
D5,3C 

RESULT: DSKINI displays the track it is currentls initializing 

RQIARKS: For Disk Basic 1.1 
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This procedure Mill let aou LOAD and Bl« icret of those 'Cassette Ofila' 
Bask ProgrMs fro* disk. First, transfer the Basic Prograi fraa 
cassette to disk. Then, set the MK AU RAH nODE as described on Page 
61 of our SflB POKES PEEKS 'N EXECS. LOAD the Basic Prograa dish and 
type id the follo«in9 coHund: 

COmMi POKE IH134,0:POKE ftK139,e:P0KE 49I52,B:P0KE 248,PE£K( 
25):P0KE 249,PEEK{27}:P0KE 250,PE£K(28]:EXEC U«0B2 

result: Puts the cowuter in EXTENDED BASIC OTLY iode and 
preserves the Basic Prograi in KMry 

REMRKS: None 

Then, type this cowand: 

COmW! POKE 25, PEEK (248)! POKE 27, PEEK (249): POKE 28,PEEKf25B): 

LIST 
RESULT: Recovers the Basic Prograi 
REHARKS: None 

If the Basic Prograi requires a POKE 2S.6:NEU befcFe it loadst type in 
the follMing coMands; otheriise type: PCLEAR 4:RUN 

COmMD: POKE IH96eE, ]8:P0KE fcH9^,lB!P0KE &H9&9fl,18:P0KE 

IH96A3,1B:P0»E 1H9U4,18:PCLEAR 0:RUN 
RESULT: Sets PCL£AR 9 and RUNs the prograi 
REtVMKS: None 



DISK SYSTEMS 

COmWDt POKE 2376,9:P0KE 2378,ia!P0KE 2377, 4HB9: POKE 2379,l*« 
flESUlT: Prevents ?0B ERROR Kssase after COPY error 
(ENARKS: Type in this cowund AFTER the COPY error 

amW: PEEK(&HC135) 

R^ULT: Returns 49 in Disk Basic 1.1 

REHMKSi Used to ascertain betwen Disk ROHs 

CtttMNDi PEEK (WC15S) 

RE^Ti Returns a <H9 naber in Disk Basic 1.1 

REWRKS: Used to ascertain betiieen Disk ROHs 

COnWO: SW01'TEXTMi2*,1535,FHK(lU)i256+PEEK(115) 
RESULT: Saves the current text screen to disk 
RDMKS: Use LOAWTEXT' to load screen back frn disk 

COmW): SAVEI1'GRAPHICS',3584,PEEK(183)i256,W539 
RESULT: Saves the current graphics screen to disk 
REMRKS: Use LOMH 'GRAPHICS' to load screen back trm disk 

COmW: PEEK (4HEO 

RESULT: If used after a DSKINI error, it returns tSe track I 

■here the error occurred 
RENARKS: See next coMtand 

COmW: PEEK (VCO) 

RESULT: If used after a DSKINI error, it returns the sector t 

■here the error occurred 
RENARKS: None 

COmWD: CLEAR 200, 32766: POKE 25,14:P0KE 3584,B:ICU 
RESULT: COPY coMand requires fever SUAPS eith larger files 
REMARKS: Erases any Basic Prograi in Hnry 

COmW): A=2ee8:El(EC 44609 A:DSK1( 0,8,1, A«,B$ 

RESULT: Restores head to track 8 on Drive 

RENARKS: Use before turning off coiputer. Next tiee you turn on 
the coaputer and type DIR, the disk drive head Mill 
not restore to track B.Prolonss the lite of your drive 
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COmWD: A=2e0e:EXEC 44609 A:D9(It 1,1,1. A»,B$ 

RESULT: Restores head to track on Drive 1 

flEHARKS: Use before turning off cowuter. Next tiw you turn oit 
the coiputer and type DIRi the disk drive head nill 
'bang' to track B.Prolongs the life of your drive 

ZOmm: A=2ne:E](EC 44609 A:DSKI» 2,0,1,A«,S« 
RESULT: Restores bead to track I on Drive 2 
IENARK5: See RETIARKS for previous coMund 

COtfVM): A=28fle:EXEC 44609 AtDSIt 3.0,1, AS,B$ 
RESULT: Restores head to track on Drive 3 
REMARKS: See REMARKS for previous coMund 

COmAND: UNLOAD:0PEN'DMl,'filenaM/bas',l:FIELD 11,1 AS At: 
SET •1,2!A=ASC(A$):6ET ll,3!A=A»256+ASC{A»)!PRINT' 
LENGTH ='A: EXEC fcHA426 
RESULT: Gives LENGTH of Basic Prograa on disk 
REHARKS: Substitute 'filen«e' with the appropriate filenaw 

COrfWO: 10 lM.OAD:OPEN'D',tl,'filenaM/binM:FIEL[) 11,1 AS 

Al:P=l 
20 ffT #l,Ptl:A=ASC(A$):SET «,P+2:A=A»:56+ASC[A»): 

P=P+A+5iSET IUP:IF ASCIA$)<>255 THEN 28 
30 ST •1,P+3:A=ASC(A$}:€ET ll,PM:A=A<2564ASC(At): 
PRINT -EXEC ='A:EXEC tHA426 
RESULT: Gives EXEC address of K. program nn disk 
REMARKS: Substitute 'filenaM' with the appropriate filenav 
RIM this prograii to achieve the RESULT 

COmAM): UNLOAD: OPEN'DMl,'filenaK/binM:FIELD *1, 1 AS 
A$:P=l:ffT il,P+l:A=ASC(A$)fGET ll.P+2:A=A»256tASC 
(A$):6ET ll,P+3!B=ASC(A»):GET ll,P+4:B=Bt256+A5C(A«): 
PRINT-START ='Bi:? TAB(15)' END ='A+B-l:EXEC tHA426 
RESULT: gives the START / END address of H prograii on disk 
REMARKS: Substitute 'filenaie' with appropriate filenaae. For 
ft prograM that da NOT have Miltiple start addresses 



22 
COmWD: IB UNLOAD:OPEN'D',«l,'fiIenflie/binM:FIEU) «I,1 AS 

2B GET «1,P+I:A=ASC(A»):GET ll,Pt2!A=At256+ASC(A$): 
GET ll,P+3!B= ASC(AJ):6ET II,PHiB=B»256+ASC(A$): 
PRIMT 'START ='B;:?TAB{15)' END ='A+B-l:P=P+A+5: 
GET ll,P:IF ASC(A»)<>255 Tf€N 28 ELSE EXEC WM2b 
HE9ULTI Gives the START / END address of a HL progran on disk 
lENARKS! Sdistitute 'filenMe* vitlt appropriate filenaie. For 
n prD9ra>5 tliat do/don't have lultiple start 
addresses. RIK this prograi to achieve the RESULT 

COttWIDi unload: OPEN'DMl.VilenaM/binMiFIELD tl.l AS A«! 
X=xxxx:A=INT(X/256)!B=)(-(At256):LSET A»=CHR«(A):PUT 

•l.AJLSET AS=CHM(B):PUT ll.SiEXEC UWtlb 
tESXJi Changes the start address of a H prograi on disk 
lEHARKS: Substitute 'filenaae* Mith appropriate filenane. Not 

for files «ith lultiple start addresses. Substitute 

xxxx Mith the desired start address 

COtWO: 5AWfilenaB'+CHR«(PEEK(138)+H3) 

HESULTi Saves a Basic Prograi on disk vith siiple protection 

REHAIKS! Substitute 'filenai' Mith appropriate 7 letter 

filenaie. Although the file appears nornal when you 
DIR( it CM only be loaded by the next comiand 

COmWD: LOAD 'filenai'+CHmtPEEKt 138)^143) 
RESULT) Loads a jirotected Basic Prograi froi disk 
REHAWSi Substitute 'fllenai* Mith appropriate filename. To be 
used in conjunction Mith the previous comand 

COmNQ: A»«'filenaH/exf:EXEC 51512 A«:EXEC IHC68C:A=PEEK 

(IH973) 
RESULTi Tests to see if the filenaie 'Al' exits on disk 
RENAAKSt For Di^ Basic 1.1. If filenaie is not found) then 

A=e; if found) then A is a nrai zero nuiber 



Af>-filenaie/exf:EXEC 51338 Ai:EXEC &HC65F:A=PE£K 

(tK973) 
RESULT: Tests to see if the filenaie 'Al' exits on disk 
REMARKS: For Disk Basic l.B. If filenaie not found) then 

A=fli if found) then A is a non zero muber 
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CONVN): POKE 234.2:P0KE 238,6!P0KE 239,e:F0R I=i T034:F0R J= 
n018:P0KE 236,I:P0KE237,J:EXEC PEEK(&HCee4)«256+PEEK( 
&HCee5):lF f>EEK(2W)<>i THEN ^■TRACK'I>SECTOR'J:(EnJ, 
I ELSE NEXT J, I 

result: Verifies disk and lists all bad tracfc/sectirs 

RETIARKS: None 

COdWtt): X=PEEK(39)t256+PEEK(«)-4B:a£AR 2M,X:X=PEEK(39»f256 
+PEEK(Afl)+l:FOfi l=i TO X+29:READ A»!POKE I,V«.CiH' 
+A$):NEXT:A=IMT(X/256):B=X-(Ai256)!P0KE U4,A:P0((E 
115,B:DATA 12,fiD,Ct,Fe,BD,D2,D2,10,82,9C.V.E3.F,E4, 
B6.FF,83,BA,01,B7,FF,e3,K',6F,6D,AD,21,7E,AO,9E 
RESULT: Rntarts your Basic Prograi Mhen Reset is pressed 
fCHARKS: For Disk Basic 1.1. Divide the comand into two 
stateiKnts at DATA 

COmAND: POKE lU,ftHC0:POKE 115,&HE7 
RESULT! Restores norial RESET 
REIVlRKS: For Disk Basic 1.1 

COWAND: X=PEEK(39)i2S6tPEEK{4e)-4e:CLEAR 2aB,X:X=PEEK(39)«2S& 
+PEEK(«}+l:FOR I=X TO Xt29:READ A»:POKE I.VALCIH* 
+A$):(CXT:A=INT(X/256):B=l(-(At256):P0KE il4,A:P0KE 
115.B!DATA 12,BD,Cfl,D0,BD,Dl>E5,6D,S2,9C,flF,E3,V,E4. 
B6,FF,B3,8A,Bl,B7,FF,e3,flF,6F,BD,AD,21,7E.AD,9E 
RESULT: Restarts your Basic FVoqraii vhen Reset is pressed 
REMARKS: For Disk Basic 1.0. Divide the coMtand into tM 
stateients at DATA 

COfftAW: POKE 1U,IHC8:P0KE 115,&HD4 
RESULT: Restores norul [£SET 
REnARKS: For Disk Basic 1.0 

COHMND: A=2000:EXEC 44609 A:D5KIW,17,2iA«,B«!D5K0«e,17il, 
A$,B«:FOR 1=3 TO 10:DSKI$8,17,I,Ai,B«:DSKO«l,17,Iie, 
A«,B$:»EXT 
RESULT: Keeps a spare copy of the directory on Track 17 
REMARKS: Helpful when directory crashes. See next cowand. 
Only for disks vith less than 60 files 
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COrtVM): A=2e8B:EXEC 44609 A£DSKIM,17,liAlil$:DSKO$0il7,2, 
A«,B«:F0R 1=3 TO ie:DSKI$0f 17Tl+BiAt,B»:DSK0«e,17,I, 

At, Bt: NEXT 
RESULT: RestoreB directory 
RENARG: To be used in conjunction wth previous coMand. 

Only for disks Kith less than 60 files 

The last two coMands alln you to scraable the disk directory so that 
other users uy not be able to use the disk. The first coMund 
scrambles the directory. To tell if the directory is scraabledt typef 
DIR. If the program PROTECT/BIN is displayed (in lowercase) i then the 
disk is scrambled. DO NOT save any programs to the scratbled disk. To 
restore the directory, type use the second comand. Do NOT use these 
coMiands if you are keeping a spare directory on Track 17. 

COniAND: CLEAR 28e8:SAVEn<protect/bin',243,243,243:DSKl»e,17i 
2,AI,Bt:DSKO$ail7,l,A«,B«:A»^TRING«(128,255):B(:M^«: 
DSK0$e,17,2,A«,B«:DIR PEEK<235) 

RESULT: Scrambles the disk directory 

REMARKS: See ne>!t coHund. ^protect/bin' should be typed in 
1. 



COfflAND: aEAR 2eee:l}SKI$e,17tl,A$,B$:DSKO«0,17t2,At,6»:KILL" 

protect/ bin' 
RESULT: Unscraibles the scranbled directory 
REHARKS: See previous cowand 
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ENHANCEMENTS 
EDTASn + (R) Disk Version 

command: LOADH'EDTASM'rPOKE l53M,57iSAVEH'EDTASM', 5632,19871, 

5632 
result: Patches the FCC coMund in the EDTA9H 

REMARKS: Onlu the ASCII ■equivalent of the first character of 
the FCC string is printed. Saves paper when listing 
to printer 

CCmAND: LOADM'EDTAS«0V:P0KE I645i,57:SAVEM'EDTASM0V,5632, 

20663,5632 
RESU.T: Patches the FCC cowand in the DTASMOV progra» 
tetARKS: See REHARKS for previous coMand 

COCO MAX (R) 

command: poke 2e347,PEEK(138)+224 

RESULT: Changes graphics screen to PMODE 3 

REMARKS: None 

COMMAND: POKE 20347, PEEKa38)+255 

RESJLT: Returns to norial after previous coHund 

remarks: None 

command: poke 1B729,]( 

RESULT: Changes the radius of edges in rounded box icon 

remarks: Use values of x between 12 and 40 

COmAND: POKE UfiC09,33 

RESULT: Changes the action of pull down lenus 

remarks: None 

COtHAW): POKE 22283,ASC('B'):P0KE 222B4,ASCCP):P0KE 26880, 
ASC('r):P0KE 26881, ASC('N'): POKE 27817,ASC('B') 

result: Replaces the MAX extension with BIN 

REMARKS: Add these statemts to the Basic Loader. Fm now, 
all graphics screens dill be saved to disk under the 
extension BIN 

COMHAM): POKE 32767, x 

RESULT: Moves the left urgin of drawing window x spaces to 

the left 
remarks: None 
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TELEWRITER -(Am 



COmAND: POKE 12525,240 

RESULT: Changes the screen color for 16/3^ Ca&sette Version 

RENAflKS: Add this POKE to the Basic Loader (after the aOAM 

■■,0F canand in statewnt 59) 

COmWD: POKE 12525,248 

RESULT! Restores nornal screen color for 1&/32K Cass Version 

RETVUKS: See REMARKS for previous coBnand 

COmMKD! POKE 61125,240 

RESULT! Changes the screen color for 64K Cassette Version 

REKARKS! See RETIARKS for previous cowand 

COftWffi! POKE &1 125. 248 

ffiSULT! Restores norwl screen color for 64K Cass. Version 

REKARKS! See RETIARKS for previous coanand 

COnUND! POKE 12732,240 

RESULT! Changes the screen color for 16/32K Disk Version 

REHARKS: Add this POKE to the Basic Loader (after the 
LOADn'TUM',OF coNHnd in stateMnt 200) 

amWD! POKE 12732,246 

RESULT: Restores nor»al screen color for 16/32K Disk Version 

REHMKS: See REHARKS for previous canand 

COnVMD! POKE bl262.240 

RESULT! Changes screen color for 64K Disk Version 

RB1ARKS: See REHARKS for previous comand 

COmWD: POKE &1262,248 

RESULT: Restores norial screen color for IM Disk Version 

REHARKS: See REMARKS for previous coanand 

The next conands allOM aou to define the fomat values of various 
parawters to the ones you use Hst often. Add the POKE(s) to 
statewnts 306,307 or 30B of the Basic Loader for the Disk Version 

COrtWD! PO)C IH96,it 

RESULT: Sets default Baud Rate 

REMARKS! t is the Baud Rate value. 
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COmM): POKE fcHB4,l 

RESULT: Turns off Auto fage Nuito-ing 

REHARKS: None 

COnVM): POKE &KB4,1 

RESULT; Turns on Auto Page Nuibering 

REHAWS: None 

COttlAND! POKE IKC&,x 

RESULT! Sets Top Margin to 'x' 

REHANKS! None 

COmAND: POKE fcKD2.x 

RESULT: Sets I of Lines Per Page to 'x' 

REHARKS! None 

COtflAND: POKE U^,x 

RESULT: Sets Line Spacing to 'X' 

REMRKS: ftone 

COmAND: POKE UF3,x 

RESULT: Sets Bottca Nargin to 'x 

REHARKS: None 



»^T 



COttlAND: POKE &HFB,x 

RESULT! Sets Line Width to 'x' 

REHARKS: None 

COniAND: POKE fcHFF.x 

RESULT! Sets Uft (targin to 'x' 

REMARKS: None 

COmAND: POKE &Hie2.x 

RESULT: Sets Pa9e Nuiber Placetent to 'x' 

REMARKS: Sets the 'WERE' paraMter in the 

comma poke &HUA,fl 

RESULT: Sets LoMercase 
REMARKS: None 

COmAND: POKE tHUA,255 
RESULT: Sets Uppercase 
REMARKS: None 
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OOtVM): POKE IH3EE,R 

RESULT: Turns off Single Sheet Printer Pause 

REIMRKS: None 

COttVMD: POKE IH3EE,1 

RESULT: Twns on Single Sheet Printer Pause 

REHMKS: None 

COmWD: POKE IH3FA,e 

RESULT: Turns off Right Justify 

REHAMtS: None 

COmMO: POKE IK3FA, 1 

RESULT: Turns on Right Justify 

remarks: None 



EDTASn + is a tradeMrk of the TANDY CORPORTION. COCO HAX is a 
tradlMrlc the COLORUARE. TELEURITER - M is a tradeaark of COGNITEC. 
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GAMES 



Note: Type in ttwse POKES AFTER MOLOADR'in? the gw and 
BEFORE typing 'EXEC. 

COMAKD: poke tKlD77,255 

RESULT: The invaders threw fewer boibs at your ship in 

Space Invaders 
REHARKS: None 

COmAND: POKE 7690,88 
RESULT: Speeds up Colorpede (R) 

ROMRKS! If you think you have Hstered Colorpede (R), try this 
POKE! 

COrtVM); POKE 7bB9,B 

RESULT: Slow dom Colorpedt (R} 

REHARKS: None 

COltWffi! POIC 11271,283 

RESULT: Iiproves keyboard reponse in 'The Frog' (R) 

REMARKS: For disk syste«s. Right work vith cassette 

COmMA): POKE lBSee,23 

RESULT: The barrells stop cosing dovn after the first one hits 

the 'OIL' tank in Donkey King (R) 

remarks: None 

COmMD: POKE tH3b93,]( 

RESULT: Gives 'x' I of lives in Sag-It-tlan (R) 

REMARKS: None 

COmAM): POKE «H5A39, x 

result: gives *x' t of lives in Mr. Dig (R) 

REMARKS: None 

COfflAND: POKE bH57M,x 

RESULT: Gives 'x' i of lives in Lunar Rover Patrol (R) 

REfMKS: None 

For those aith the EDTASKt assenbler and a autostart version 
of Lunar Rover Patrol (R)t tra the next corwand 
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COftWO: <Turn off cnputer, insert EOTASm Roank, turn on 
CDBputeritype 1 and press <QfrER>i 1 and press 
<ENTER>, L LUN-ROVt and press <EKTER> tvice, type XCA 
and press <ENTER>, t«pe 59F and press <0ffER>,type Ilfl 
and press <ENTER>t type 22369/ and type the nuaber of 
ships you vant and press <ENTER> Type C and press 
<ENTER> 

RESULT! Gives you 'x' t of lives in Lunar Rover Patrol (R) 

REHARKS! None 

COmAND: POKE iH73BD.x 

result: eives 'x' • of Uves in Nudpies (R) 

REHARKS: None 

COmAND: POKE tm41D,x 

result: Gives 'x' t of lives in Tutankat (R) 

REHARKS: None 

COmAND: POKE iH20S2i x : POKE IH2K7l,n 
RESULT: Gives 'x' i of lives in Zeus {R) 
REHARKS: None 

COHHAND! <Turn on cOBputer, type! POKE 25,1M!P0KE 256ee,8H« 
and press <ENTER>. Then load Bedlai. Raaka-Tu or 
Pyranid and type in the following: 

F0RM536 TO I6384!PRINT CHR»{PEEK(I)){!NEXT 
result: Lists coNunds available in these adventures 
REHARKS: Garbage Milt appear in the beginning but the counds 
Hill appear by the end 



The naaes of the various arcade gaKS used in this section are 
Tradewrks of different cowwnies and have been included for the sake 
of easy conpretiension. 



" MUST' BOOKS 



UNRAVELLED SERIES: These books Provide a 

complete annotated listinq of the BASIC/ 
ECE/SUPER ECB & DISK ROMs. 

EXTENDED COLOR BASIC UNRAVELLED $39.95 

DISK BASIC UNRAVELLED «19.95 

BOTH UNRAVELLED BOOKS $49.95 

SUPER ECB (C0C03) UNRAVELLED $24.95 

ALL 3 UNRAVELLED BOOKS $59.95 

BASIC PROGRAMMING TRICKS $14.95 

COCO 3 SECRETS REVEALED $19.95 

COCO 3 TECHNICAL MANUAL $39.95 

INSIDE OS-9 LEVEL II $39.95 

ASSEMBLY LANGUAGE PROGRAMMING $18.00 

500 POKES PEEKS 'N EXECS $16.95 
300 POKES PEEKS 'N EXECS for 

CoCo 3 $19.95 

UTILITY ROUTINES (VOL I) BOOK $19.95 



TO ORDER: VISA, MC, AMEX , CHECK or MO. Please 
add $3.00 shiPPinq and handlina. Foreign 
orders Please add $5.00 S&H. NYS residents 
please add sales tax. Immediate shipment. 

MICROCOM SOFTWARE 

PO BOX 214 
FAIRPORT,NY 14450 
PH: <716)223-1477 

FOR ORDERS CALL TOLL FREE 1-800-654-5244 



